perm filename NE.PSC[1,RWF] blob sn#728182 filedate 1983-09-27 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	program ne(output)
C00003 ENDMK
CāŠ—;
program ne(output);
var r,c:integer;
begin
for r:=0 to 10 do
   begin
   for c:=1 to 15 do
      if c<=5 then write('A')
      else if c>=11 then write('B')
      else if c >=6+r then write('C')
      else if c>=1+r then write('D')
      else write('E');
   writeln
   end
end.